home *** CD-ROM | disk | FTP | other *** search
/ Publication 9 / Publication_09_1996_High-Tech_de_Side_B.d64 / new input (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  615b  |  27 lines
  1. 10 print"[147]":x=5:y=5:mx=10:tl=50:th=50:my=1:gosub26
  2. 11 end
  3. 12 rem
  4. 13 rem x$  = eingabestring
  5. 14 rem
  6. 15 rem x,y = position
  7. 16 rem
  8. 17 rem mx  = eingabelaenge
  9. 18 rem
  10. 19 rem tl  = tonlaenge
  11. 20 rem
  12. 21 rem th  = tonhoehe
  13. 22 rem
  14. 23 rem my  = 0 buchstaben + zahlen
  15. 24 rem       1 nur zahlen
  16. 25 rem
  17. 26 x$="":gosub35:print"[158][164]"
  18. 27 geta$:on-(a$="")goto27:gosub33:ifa$=chr$(13)thenreturn
  19. 28 ifa$=chr$(20)andlen(x$)>1thenx$=left$(x$,len(x$)-1):goto27
  20. 29 ifasc(a$)>47andasc(a$)<58thenx$=x$+a$:goto32
  21. 30 ifmy<>1andasc(a$)>64andasc(a$)<95thenx$=x$+a$:goto32
  22. 31 a$="":goto27
  23. 32 gosub35:print""x$"[158][164] ":iflen(x$)<mxthen27
  24. 33 si=54272:pokesi+24,15:pokesi+6,240:pokesi+4,33:pokesi+23,4:poke33,th
  25. 34 pokesi+1,th:forq=1totl:next:pokesi+24,0:return
  26. 35 poke211,x:poke214,y:sys58732:return
  27.